#!/usr/bin/env perl

#======================================================
# 打印当前脚本文件名 注意 __ 是两条下划线
print("当前正在执行的脚本：",__FILE__,"\n");

print("当前正在执行的行数为：",__LINE__,"\n");

print("包名：",__PACKAGE__,"\n");

#======================================================
# v 字符串
#一个以 v 开头,后面跟着一个或多个用句点分隔的整数,会被当作一个字串文本。
$ip=v97.98.99 ; #a b c的ascii
print("$ip\n") ;

#======================================================
#  $_，该变量包含了默认输入和模式匹配内容
#  print 在不指定输出变量，默认情况下使用的也是 $_。
foreach (1..3) {
    print ("$_\t");
}
print "\n";

foreach (1..2) {
    print ;
    print "\n";
}
